home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1994 December / SOFM_Dec1994.bin / mac / Utilities / TypeBook / theTypeBook v3.24s / theTypeBook v3.24s.rsrc / PREC_103_LW80 < prev    next >
Text File  |  1994-08-17  |  1KB  |  55 lines
  1. %Final tTB_dict 8.0 crunched
  2. av
  3. /SmallLW 60 dict def
  4. SmallLW begin
  5. % Following is common to both
  6. /tBbd {bind def}bind def
  7. /tBxd {exch def}tBbd
  8. /t_av tBxd
  9. /T {true} tBbd
  10. /F {false} tBbd
  11. /t_EPSpar [0 0 0 0 0 0 0 0 0] def
  12. /draw_crops{
  13. .3 setlinewidth
  14. 0 25 moveto 22 0 rlineto
  15. 0 25 t_pgL add moveto 22 0 rlineto
  16. 25 t_papL moveto 0 -22 rlineto
  17. 25 t_pgW add t_papL moveto 0 -22 rlineto
  18. t_papW 25 moveto -22 0 rlineto
  19. t_papW 25 t_pgL add moveto -22 0 rlineto
  20. 25 0 moveto 0 22 rlineto
  21. 25 t_pgW add 0 moveto 0 22 rlineto
  22. stroke
  23. newpath
  24. }tBbd
  25. /rect {4 2 roll moveto 1 index 0 rlineto 0 exch rlineto neg 0 rlineto closepath}tBbd
  26. /EPS_clip{
  27. 9 -2 roll translate
  28. 7 -2 roll neg scale
  29. neg 5 -1 roll add
  30. 4 1 roll dup neg
  31. 4 index neg
  32. exch translate
  33. 2 index sub exch
  34. 3 index sub exch
  35. rect clip newpath
  36. }tBbd
  37. /BeginEPSF{
  38. t_EPSpar astore pop
  39. /b4_state save def 
  40. /dict_cnt countdictstack def
  41. /op_cnt count 1 sub def
  42. /languagelevel where
  43. {pop languagelevel 1 ne{false setstrokeadjust false setoverprint}if}if
  44. /eps_on T def
  45. /showpage {} tBbd
  46. t_EPSpar aload pop EPS_clip
  47. }tBbd
  48. /EndEPSF{
  49. /eps_on F def
  50. count op_cnt sub {pop} repeat
  51. countdictstack dict_cnt sub {end} repeat
  52. b4_state restore
  53. psb
  54. }tBbd
  55.